home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 1 / Gekikoh Dennoh Club Vol. 1 (Japan).7z / Gekikoh Dennoh Club Vol. 1 (Japan) (Track 1).bin / kowin / archive / net / kxtm248.lzh / dice.k20 < prev    next >
Encoding:
Text File  |  1992-05-28  |  1.3 KB  |  43 lines
  1. -1
  2. &echo "\x1b[2J// KX_Term20 ダイスゲーム 1992 COR.//\n"
  3. vQ=0;vP=4;vC=0
  4. &scroll 1
  5. :K
  6. $G=123456789
  7. :L
  8. vR=\+(\R(6);1);vS=\+(\R(6);1);t\vR,\vS;F>;vP=\+(\vP;1)
  9. vQ=\+(\vQ;1);vC=\+(\vC;\vP)
  10. :M
  11. &echo "\U(\vQ;3) <\$(G)> [\vR][\vS]  pass=\-(\vP;1)"
  12. vA=\+(\vR;\vS)
  13. -20;$K<?
  14. -1;t\$(K),-;F>;vP=\-(\vP;1);t\vP,0;TO;&echo "Pass..";gL
  15. t\=(\$(K);9),2;F>;&echo "入力値が範囲外です";gM
  16. t\=(\$(K);\vA),2;F>;&echo "入力値が範囲外です";gM
  17. vB=0;t\$(K),\vA;T>;vB=\-(\vA;\$(K));t\$(K),\vB;F>;&echo "消去できません";gM
  18. t\f(\$(K);\$(G)),;F>;&echo "消去できません";gM
  19. t\vB,0;T>;t\f(\vB;\$(G)),;F>;&echo "消去できません";gM
  20. $G=\s(\$(G);\$(K);*)
  21. t\vB,0;T>;$G=\s(\$(G);\vB;*)
  22. t\$(G),*********;FL
  23. &echo "\U(\vQ;3) [\$(G)] CLEAR!! pass=\-(\vP;1)\n"
  24. gK
  25. :O
  26. &echo "GAME OVER!\n"
  27. &echo "Score=\vC"
  28. -10;.
  29. # KX_Term20 1992 by H.Ogasawara(COR.)
  30. # = ダイスゲーム =
  31. # 表示
  32. # ｽｺｱ ﾌｨｰﾙﾄﾞ     ｻｲｺﾛx2  残りﾊﾟｽ
  33. # ------------------------------
  34. #  3 <12345*7*9> [1][5]  pass=4
  35. #
  36. # サイコロの目の合計した数字をフィールドから消していきます。
  37. # 全部消せればクリアで、残りパス回数が 0 になるとゲームオーバー。
  38. # 一度に消せる数字は１個または２個。
  39. # 例えば上の例なら 1+5 = 6 ですが、すでに6は消えているので、
  40. # 1と5 または 2と4、の消し方を選べます。
  41. # 2つ消す場合は片方の数を入力するだけでOK
  42. # パスするには - を入力。パス回数はぞろ目で増えます。
  43.